﻿
'Author : Jawad Najim
'Date : 2/09/2012 

Public Class Advisor
    Inherits User

    Private aID As String
    Private aDepartmentID As String
    Private baseUser As User
    Public Sub New()
        aID = ""
        aDepartmentID = ""
    End Sub
    Public Sub New(ByVal ID As String, ByVal deptartmentID As String, ByVal baseUsr As User)
        Me.UserID = baseUsr.UserID
        Me.FirstName = baseUsr.FirstName
        Me.LastName = baseUsr.LastName
        Me.Email = baseUsr.Email
        Me.StreetAddress = baseUsr.StreetAddress
        Me.City = baseUsr.City
        Me.State = baseUsr.StreetAddress
        Me.ZipCode = baseUsr.ZipCode
        Me.TypeID = baseUsr.TypeID
        aID = ID
        aDepartmentID = deptartmentID
    End Sub

    Public Property AdvisorID() As String
        Get
            Return aID
        End Get
        Set(ByVal value As String)
            aID = value
        End Set
    End Property

    Public Property DepartmentID() As String
        Get
            Return aDepartmentID
        End Get
        Set(value As String)
            aDepartmentID = value
        End Set
    End Property
End Class
